home *** CD-ROM | disk | FTP | other *** search
/ Maclife 42 / MACLIFE42.ISO.7z / MACLIFE42.ISO / FreeWare200 / 通信関連 / NIFTY APS f1.sit / NIFTY APS f1 / Login Script < prev    next >
Text File  |  1998-04-13  |  32KB  |  1,775 lines

  1. ************************************
  2. *   NIFTY APS final by Ko Tsuneta   *
  3. ************************************
  4. ********************
  5. *   Main Routine   *
  6. ********************
  7. ***** Get Date *****
  8.   date:$date$:
  9.   set:$predate$:20$date$
  10.   set:#predate#:$predate$
  11.   strext:$string$:7:8:$predate$
  12.   if:05:$string$<>01
  13.   sub:#predate#:100
  14.   strext:$string$:5:6:#predate#
  15.   if:04:$string$==00
  16.   set:$predate$:#predate#
  17.   if:03:$string$==04
  18.   if:03:$string$==06
  19.   if:03:$string$==09
  20.   if:03:$string$==11
  21.   if:02:$string$<>02
  22.   strext:$string$:1:4:$predate$
  23.   set:#num#:$string$
  24.   mod:#num#:4
  25.   if:01:#num#<>0
  26.   set:#num#:$string$
  27.   mod:#num#:100
  28.   if:00:#num#<>0
  29.   set:#num#:$string$
  30.   mod:#num#:400
  31.   if:01:#num#<>0
  32. 00:
  33.   strext:$predate$:1:6:$predate$
  34.   set:$predate$:$predate$29
  35.   j:06
  36. 01:
  37.   strext:$predate$:1:6:$predate$
  38.   set:$predate$:$predate$28
  39.   j:06
  40. 02:
  41.   strext:$predate$:1:6:$predate$
  42.   set:$predate$:$predate$31
  43.   j:06
  44. 03:
  45.   strext:$predate$:1:6:$predate$
  46.   set:$predate$:$predate$30
  47.   j:06
  48. 04:
  49.   sub:#predate#:10000
  50.   set:$predate$:#predate#
  51.   strext:$predate$:1:4:$predate$
  52.   set:$predate$:$predate$1231
  53.   j:06
  54. 05:
  55.   sub:#predate#:1
  56.   set:$predate$:#predate#
  57. 06:
  58.   strext:$predate$:3:8:$predate$
  59.   set:$set$:------------1
  60. ***** Maintenance? *****
  61.   set:#start#:0
  62.   week:#week#
  63.   if:10:#week#<>4
  64.   strext:$string$:5:6:$date$
  65.   set:#num#:$string$
  66.   if:10:#num#<<22
  67.   if:10:#num#>>28
  68.   time:$time$
  69.   strext:$string$:1:2:$time$
  70.   set:#num#:$string$
  71.   if:10:#num#<<01
  72.   if:10:#num#>>07
  73.   m:メンテナンス中です。^m
  74.   j:992
  75. ***** Where will I go? *****
  76. 10:
  77.   set:#go#:0
  78.   exist:11:SCRIPT:BBS.aps
  79.   j:12
  80. 11:
  81.   add:#go#:1
  82. 12:
  83.   firstfile:$filename$:POST:¥^BBS
  84.   if:13:$filename$==
  85.   add:#go#:2
  86. 13:
  87.   exist:14:SCRIPT:MES.aps
  88.   j:15
  89. 14:
  90.   add:#go#:4
  91. 15:
  92.   exist:16:SCRIPT:SEArch.aps
  93.   j:17
  94. 16:
  95.   add:#go#:8
  96. 17:
  97.   exist:18:SCRIPT:DownList.lib
  98.   j:19
  99. 18:
  100.   add:#go#:16
  101. 19:
  102.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  103.   if:20:$filename$==
  104.   add:#go#:32
  105. 20:
  106.   exist:21:SCRIPT:PATIO.aps
  107.   j:70
  108. 21:
  109.   add:#go#:64
  110. ***** Setting *****
  111. 70:
  112.   exist:71:SCRIPT:SETTING.aps
  113.   m:SETTING.apsが見つかりません。^m
  114.   j:992
  115. 71:
  116.   fopen:#setref#:SCRIPT:SETTING.aps
  117.   fread:#setref#:$line$
  118.   strwhere:#num#:/:$line$
  119.   if:73:#num#<>1
  120.   strext:$id$:2:9:$line$
  121.   strwhere:#num#:$id$:$i$
  122.   if:74:#num#==0
  123.   add:#num#:8
  124.   div:#num#:9
  125.   nthstr2: :$pw$:#num#:$p$
  126.   gosub:1002
  127.   if:73:$temset$<>DIAL
  128.   nthstr:$temset$:2:$line$
  129.   nthstr2:¥r:$temset$:1:$temset$
  130.   set:$set$:$temset$
  131.   fread:#setref#:$line$
  132.   nthstr:$temset$:1:$line$
  133.   if:73:$temset$<>TERMINAL
  134.   gosub:1000
  135.   if:73:$temset$<>TEXTMAIL
  136.   gosub:1000
  137.   if:73:$temset$<>BINARYMAIL
  138.   gosub:1000
  139.   if:73:$temset$<>DELETEMAIL
  140.   gosub:1000
  141.   if:73:$temset$<>SENDMAIL
  142.   gosub:1000
  143.   if:73:$temset$<>NEWMAIL
  144.   gosub:1000
  145.   if:73:$temset$<>FORUMOPT
  146.   gosub:1000
  147.   if:73:$temset$<>MES
  148.   gosub:1000
  149.   if:73:$temset$<>LIB
  150.   gosub:1000
  151.   if:73:$temset$<>COMMENT
  152.   gosub:1000
  153.   if:73:$temset$<>BILL
  154.   nthstr:$temset$:2:$line$
  155.   nthstr2:¥r:$temset$:1:$temset$
  156.   set:$set$:$set$-$temset$
  157.   gosub:1002
  158.   if:73:$temset$<>LOGCUT
  159.   gosub:1000
  160.   if:73:$temset$<>QUIT
  161.   nthstr:$temset$:2:$line$
  162.   if:72:$temset$==ON^m
  163.   set:$set$:$set$-0
  164.   j:80
  165. 72:
  166.   set:$set$:$set$-1
  167.   j:80
  168. 73:
  169.   m:SETTING.apsのフォーマットが正しくありません。^m
  170.   set:$set$:------------1
  171.   j:991
  172. 74:
  173.   m:SETTING.apsにあるIDが見つかりません。^m
  174.   set:$set$:------------1
  175.   j:991
  176. ***** Login *****
  177. 80:
  178.   set:$mainset$:$set$
  179.   set:#times#:0
  180.   nthstr:$temset$:1:$set$
  181.   if:81:$temset$==9
  182.   dial:81:$temset$
  183.   m:回線が混雑しているようです。^m
  184.   offline:
  185.   j:991
  186. 81:
  187.   if:94:#times#>>2
  188.   silence:75
  189.   s2:
  190.   silence:30
  191.   line:#num#
  192.   getline:$line$:#num#
  193.   strwhere:#num#:Connection-ID:$line$
  194.   if:91:#num#<>0
  195.   strwhere:#num#:¥¥*:$line$
  196.   if:82:#num#==1
  197.   strwhere:#num#:Login:$line$
  198.   if:84:#num#==1
  199.   s:@P^m
  200.   t:83:3:*
  201. 82:
  202.   s:C NIF^m
  203.   j:90
  204. 83:
  205.   s:^m
  206.   add:#times#:1
  207.   j:81
  208. 84:
  209.   s:NIFTY^m
  210.   r:Password
  211.   s:^m
  212. 90:
  213.   r:Connection-ID|92:User-ID|95:Password|94:Clear
  214. 91:
  215.   s:SVC^m
  216.   t:93:5:-ID
  217.   line:#num#
  218.   getline:$line$:#num#
  219.   strwhere:#num#:Connection-ID:$line$
  220.   if:91:#num#<>0
  221. 92:
  222.   s:$id$^m
  223.   j:90
  224. 93:
  225.   closeport:
  226.   openport:
  227.   j:90
  228. 94:
  229.   m:何らかの理由で接続できなかったようです。^m
  230.   offline:
  231.   j:991
  232. 95:
  233.   if:96:#start#<>0
  234.   line:#start#
  235.   add:#start#:2
  236.   clock:reset
  237.   clock:on
  238. 96:
  239.   s:$pw$^m
  240.   set:$gone$:-
  241.   set:#mailon#:0
  242. ***** Recive Mail *****
  243.   r:す(未読分|120:(改行でトップメニュー)|130:^j>|991:定期保守をしております
  244.   silence:9
  245.   nthstr:$temset$:2:$set$
  246.   if:100:$temset$==0
  247.   gosub:1010
  248. 100:
  249.   nthstr:$temset$:3:$set$
  250.   if:101:$temset$==1
  251.   nthstr:$temset$:4:$set$
  252.   if:131:$temset$==0
  253. 101:
  254.   s:MAIL^m
  255.   nthstr:$temset$:7:$set$
  256.   if:102:$temset$==1
  257.   set:#mailon#:1
  258. 102:
  259.   r:^jMAIL>
  260.   nthstr:$temset$:3:$set$
  261.   if:110:$temset$==0
  262.   s:REAd NEW^m
  263.   nthstr:$temset$:5:$set$
  264. 103:
  265.   r:^jaction:|105:^jMAIL>
  266.   if:104:$temset$==1
  267.   s:SAVe^m
  268.   j:103
  269. 104:
  270.   s:DELete^m
  271.   j:103
  272. 105:
  273.   nthstr:$temset$:4:$set$
  274.   if:131:$temset$==0
  275. 110:
  276.   line:#bstart#
  277.   s:DOWn PROT:BPL^m
  278.   add:#bstart#:3
  279.   r:^j>|131:^jMAIL>
  280.   set:#mailon#:0
  281.   line:#bend#
  282. 111:
  283.   if:131:#bstart#>=#bend#
  284.   getline:$line$:#bstart#
  285.   add:#bstart#:1
  286.   strmatch:$bmailnum$:¥^ +[0-9]+:$line$
  287.   if:111:$bmailnum$==
  288.   strwhere:#num#:[  ]+[01][0-9]/[0-3][0-9]  B :$line$
  289.   if:111:#num#==0
  290.   strmatch:$bmailnum$:[0-9]+:$bmailnum$
  291.   s:$bmailnum$^m
  292.   r:^j:
  293.   s:BINARYMAIL$bmailnum$^m
  294.   r:開始−
  295.   d:1
  296.   dlBplus:
  297.   r:^j:
  298.   nthstr:$temset$:5:$set$
  299.   if:112:$temset$==1
  300.   s:2^m
  301.   j:113
  302. 112:
  303.   s:1^m
  304. 113:
  305.   r:^jMAIL>
  306.   nthstr:$temset$:7:$set$
  307.   if:114:$temset$==1
  308.   set:#mailon#:1
  309. 114:
  310.   if:131:#bstart#>=#bend#
  311.   j:110
  312. ***** Read This Week's Announce *****
  313. 120:
  314.   silence:9
  315.   firstfile:$filename$:POST:¥^NEW[0-9A]
  316.   if:130:$filename$==
  317.   strext:$line$:4:31:$filename$
  318.   gosub:2320
  319.   nthstr:$temset$:2:$set$
  320.   if:121:$temset$==0
  321.   gosub:1010
  322. 121:
  323.   s:$line$
  324. 122:
  325.   s:^m
  326.   r:表示終了|122:(改行で次文書 E:終了)|130:入力して下さい◆
  327. ***** Send Mail *****
  328. 130:
  329.   silence:9
  330.   nthstr:$temset$:2:$set$
  331.   if:131:$temset$==0
  332.   gosub:1010
  333. 131:
  334.   nthstr:$temset$:6:$set$
  335.   if:150:$temset$==0
  336. 132:
  337.   firstfile:$filename$:POST:¥^MAIL[0-9]
  338.   if:150:$filename$==
  339.   fopen:#mesref#:POST:$filename$
  340.   fread:#mesref#:$mesline$
  341.   strwhere:#num#:#!FN:$mesline$
  342.   if:140:#num#==1
  343.   strwhere:#num#:TO:$mesline$
  344.   if:133:#num#==1
  345.   fclose:#mesref#
  346.   set:$us$:_?
  347.   gosub:2300
  348.   j:132
  349. 133:
  350.   gosub:1200
  351.   j:132
  352. 140:
  353.   strlen:#length#:$mesline$
  354.   sub:#length#:1
  355.   strext:$binary$:5:#length#:$mesline$
  356.   exist:141:$binary$
  357.   fclose:#mesref#
  358.   set:$us$:_?
  359.   gosub:2300
  360.   j:132
  361. 141:
  362.   set:$title$:無題 m(_ _)m^m
  363.   fread:#mesref#:$mesline$
  364.   strwhere:#num#:#!TT:$mesline$
  365.   if:143:#num#<>1
  366.   strlen:#length#:$mesline$
  367.   if:142:#length#<=5
  368.   strext:$title$:5:#length#:$mesline$
  369. 142:
  370.   fread:#mesref#:$mesline$
  371. 143:
  372.   strwhere:#num#:TO:$mesline$
  373.   if:144:#num#==1
  374.   fclose:#mesref#
  375.   set:$us$:_?
  376.   gosub:2300
  377.   j:132
  378. 144:
  379.   gosub:1200
  380.   if:132:$mailto$==$id$
  381.   s:UPLoad TYPE:BIN PROT:BPL^m
  382.   r:^j:
  383.   s:$binary$^m
  384.   r:開始−
  385.   d:1
  386.   ulBplus:$binary$
  387.   r:^j:
  388.   s:$title$
  389.   r:^j:
  390.   s:1^m
  391.   r:^j:
  392.   set:#times#:1
  393. 145:
  394.   nthstr2:,:$sendid$:#times#:$mailto$
  395.   add:#times#:1
  396.   strwhere:#num#:¥¥r:$sendid$
  397.   nthstr2:¥r:$sendid$:1:$sendid$
  398.   s:$sendid$^m
  399.   r:◆|147:^j:
  400. 146:
  401.   if:145:#num#==0
  402.   s:^m
  403.   r:^j:
  404. 147:
  405.   s:1^m
  406.   r:^j送信(1:送信する|146:^j:|132:^jMAIL>
  407.   j:147
  408. ***** Read This Week's Announce *****
  409. 150:
  410.   firstfile:$filename$:POST:¥^NEW[0-9A]
  411.   if:160:$filename$==
  412.   s:GO NEW^m
  413.   strext:$line$:4:31:$filename$
  414.   gosub:2320
  415.   r:^j>
  416.   s:$line$
  417. 151:
  418.   s:^m
  419.   r:表示終了|151:(改行で次文書 E:終了)|160:入力して下さい◆
  420. ***** Mail to Center *****
  421. 160:
  422.   firstfile:$filename$:POST:¥^CENTER-1-0
  423.   if:170:$filename$==
  424.   s:GO SUPPORT^m
  425.   fopen:#mesref#:POST:$filename$
  426.   r:^j>
  427.   s:4^m
  428.   r:^j>
  429. 161:
  430.   s:1^m
  431.   r:^j>
  432.   s:1^m
  433.   r:行頭で/E)
  434.   gosub:1800
  435.   r:^j題名 (漢字で20文字まで)|162:^j>
  436.   s:無題 m(_ _)m^m
  437.   r:^j:
  438.   s:1^m
  439.   r:^j>
  440. 162:
  441.   firstfile:$filename$:POST:¥^CENTER-1-0
  442.   if:161:$filename$<>
  443. ***** External Script *****
  444. 170:
  445.   exist:171:SCRIPT:EXTERNAL.aps
  446.   j:200
  447. 171:
  448.   external:EXTERNAL.aps
  449. ***** BBS *****
  450. 200:
  451.   if:900:#go#<<1
  452.   set:#num#:#go#
  453.   mod:#num#:2
  454.   if:220:#num#<<1
  455.   fopen:#refnum#:SCRIPT:BBS.aps
  456. 201:
  457.   fread:#refnum#:$line$
  458.   if:213:#err#<>0
  459.   if:213:$line$==/END^m
  460.   s:BBS^m
  461.   set:$bbs$:$line$
  462.   strext:$string$:1:1:$bbs$
  463.   r:^j>
  464.   s:$string$^m
  465. 202:
  466.   r:下さい◆|203:^j>|204:^jBBS>
  467.   j:201
  468. 203:
  469.   strext:$bbs$:2:2:$bbs$
  470.   s:$bbs$^m
  471.   j:202
  472. 204:
  473.   nthstr:$bbs$:2:$line$
  474.   if:205:$bbs$<>Y
  475.   s:SCAn DATE:$predate$^m
  476.   j:206
  477. 205:
  478.   s:SCAn DATE:$date$^m
  479. 206:
  480.   nthstr:$bbs$:3:$line$
  481. 207:
  482.   r:^j:|201:^jBBS>|210:^j>
  483.   s:^m
  484.   j:207
  485. 210:
  486.   if:201:$bbs$<>R
  487.   s:ALL
  488. 211:
  489.   s:^m
  490.   t:212:1:next>
  491.   j:211
  492. 212:
  493.   silence:30
  494.   s2:
  495.   silence:9
  496.   line:#num#
  497.   getline:$line$:#num#
  498.   strwhere:#num#:>:$line$
  499.   if:211:#num#==0
  500.   j:201
  501. 213:
  502.   fclose:#refnum#
  503. 220:
  504.   if:900:#go#<<2
  505. 221:
  506.   firstfile:$filename$:POST:¥^BBS[0-9]
  507.   if:300:$filename$==
  508.   s:BBS^m
  509.   fopen:#refnum#:POST:$filename$
  510.   fread:#refnum#:$line$
  511.   set:$bbs$:$line$
  512.   fread:#refnum#:$line$
  513.   fclose:#refnum#
  514.   set:$us$:_
  515.   gosub:2300
  516.   strext:$string$:1:1:$bbs$
  517.   r:^j>
  518.   s:$string$^m
  519. 222:
  520.   r:下さい◆|223:^j>|224:^jBBS>
  521.   j:221
  522. 223:
  523.   strext:$bbs$:2:2:$bbs$
  524.   s:$bbs$^m
  525.   j:222
  526. 224:
  527.   strmatch:$bbsid$:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  528.   strext:$year$:1:2:$date$
  529.   strmatch:$day$:[ 01][0-9]/[0-3][0-9]:$line$
  530.   strmatch:$month$:[0-9]+:$day$
  531.   strext:$day$:4:5:$day$
  532.   s:SCAn DATE:$year$$month$$day$^m
  533.   r:^j:|221:^jBBS>
  534.   s:$bbsid$^m
  535.   r:^j:|221:^jBBS>
  536.   s:^m
  537.   r:^j>|221:^jBBS>
  538.   s:ALL
  539. 225:
  540.   s:^m
  541.   t:226:1:next>
  542.   j:225
  543. 226:
  544.   silence:30
  545.   s2:
  546.   silence:9
  547.   line:#num#
  548.   getline:$line$:#num#
  549.   strwhere:#num#:>:$line$
  550.   if:225:#num#==0
  551.   j:221
  552. ***** Forum *****
  553. 300:
  554.   if:900:#go#<<4
  555.   set:#num#:#go#
  556.   mod:#num#:8
  557.   if:400:#num#<<4
  558.   fopen:#refnum#:SCRIPT:MES.aps
  559. 301:
  560.   fread:#refnum#:$line$
  561.   if:399:#err#<>0
  562.   if:399:$line$==/END^m
  563.   nthstr2:¥r:$forum$:1:$line$
  564.   gosub:1020
  565.   gosub:1100
  566.   fread:#refnum#:$line$
  567.   nthstr2:¥r:$line$:1:$line$
  568.   r:下さい◆|304:^jFORUM>|302:^jmore>|302:^j>
  569.   j:301
  570. 302:
  571.   nthstr:$temset$:8:$set$
  572.   if:301:$temset$==0
  573.   s:SET MENu OFF^m
  574.   r:^jmore>|303:^jFORUM>|303:^j>FORUM>|301:^j>
  575. 303:
  576.   gosub:1030
  577. 304:
  578.   s:SEND OFF^m
  579.   r:^jFORUM>
  580. 305:
  581.   if:306:$filename$==
  582.   gosub:1300
  583.   gosub:1100
  584.   j:305
  585. 306:
  586.   nthstr2:/:$room$:1:$line$
  587.   if:312:#roomon#==1
  588.   if:313:$room$==
  589.   strext:$room$:1:2:$room$
  590.   strwhere:#num#:[,-]:$room$
  591.   if:310:#num#==0
  592.   strext:$room$:1:1:$room$
  593. 310:
  594.   nthstr:$temset$:9:$set$
  595.   if:311:$temset$==0
  596.   s:MES^m
  597.   r:^j>|320:^jFORUM>
  598. 311:
  599.   s:MES $room$^m
  600.   r:^j>|320:^jFORUM>|312:^jCCS(
  601.   silence:200
  602.   nthstr2:/:$room$:1:$line$
  603.   s:MREad ROOM:$room$^m
  604.   r:^j>
  605.   silence:9
  606.   j:313
  607. 312:
  608.   nthstr2:/:$room$:1:$line$
  609.   s:MREad ROOM:$room$^m
  610.   set:#roomon#:1
  611.   r:^jCCS(N)>|313:^jCCS(P)>
  612. 313:
  613.   gosub:1110
  614.   if:314:$readfile$==
  615.   gosub:2100
  616.   j:313
  617. 314:
  618.   set:#readnum#:2
  619.   gosub:2200
  620.   set:#readnum#:3
  621.   gosub:2200
  622.   exist:320:SCRIPT:SEArch.aps
  623.   j:330
  624. 320:
  625.   fopen:#searef#:SCRIPT:SEArch.aps
  626. 321:
  627.   fread:#searef#:$sealine$
  628.   if:322:#err#<>0
  629.   if:322:$sealine$==/END^m
  630.   if:321:$sealine$<>$forum$^m
  631.   fread:#searef#:$sealine$
  632.   if:322:#err#<>0
  633.   if:322:$sealine$==/END^m
  634.   gosub:1900
  635. 322:
  636.   fclose:#searef#
  637. 330:
  638.   exist:331:SCRIPT:DownList.lib
  639.   j:340
  640. 331:
  641.   fopen:#downref#:SCRIPT:DownList.lib
  642. 332:
  643.   fread:#downref#:$downline$
  644.   if:333:#err#<>0
  645.   if:332:$downline$<>¥¥m$forum$^m
  646.   gosub:2000
  647. 333:
  648.   fclose:#downref#:
  649. 340:
  650.   gosub:1600
  651.   j:301
  652. 399:
  653.   fclose:#refnum#
  654. ***** Search *****
  655. 400:
  656.   if:900:#go#<<8
  657.   set:#num#:#go#
  658.   mod:#num#:16
  659.   if:500:#num#<<8
  660.   fopen:#searef#:SCRIPT:SEArch.aps
  661. 401:
  662.   fread:#searef#:$sealine$
  663.   if:499:#err#<>0
  664.   if:499:$sealine$==/END^m
  665.   nthstr2:¥r:$forum$:1:$sealine$
  666.   fread:#searef#:$sealine$
  667.   if:499:#err#<>0
  668.   if:499:$sealine$==/END^m
  669.   strwhere:#num#:-$forum$-:$gone$
  670.   if:401:#num#<>0
  671.   gosub:1020
  672.   r:下さい◆|404:^jFORUM>|402:^jmore>|402:^j>
  673.   j:401
  674. 402:
  675.   nthstr:$temset$:8:$set$
  676.   if:401:$temset$==0
  677.   s:SET MENu OFF^m
  678.   r:^jmore>|403:^jFORUM>|403:^j>FORUM>|401:^j>
  679. 403:
  680.   gosub:1030
  681. 404:
  682.   s:SEND OFF^m
  683.   r:^jFORUM>
  684.   gosub:1900
  685.   exist:410:SCRIPT:DownList.lib
  686.   j:420
  687. 410:
  688.   fopen:#downref#:SCRIPT:DownList.lib
  689. 411:
  690.   fread:#downref#:$downline$
  691.   if:412:#err#<>0
  692.   if:411:$downline$<>¥¥m$forum$^m
  693.   gosub:2000
  694. 412:
  695.   fclose:#downref#:
  696. 420:
  697.   gosub:1600
  698. 430:
  699.   gosub:1100
  700.   if:431:$filename$==
  701.   gosub:1300
  702.   j:430
  703. 431:
  704.   gosub:1110
  705.   if:401:$readfile$==
  706.   gosub:2100
  707.   j:431
  708. 499:
  709.   fclose:#searef#
  710.   set:$filename$:SEArch.aps
  711.   gosub:2310
  712. ***** Down *****
  713. 500:
  714.   if:900:#go#<<16
  715.   set:#num#:#go#
  716.   mod:#num#:32
  717.   if:600:#num#<<16
  718.   fopen:#downref#:SCRIPT:DownList.lib
  719. 501:
  720.   fread:#downref#:$downline$
  721.   if:599:#err#<>0
  722. 502:
  723.   strwhere:#num#:m:$downline$
  724.   if:501:#num#<>2
  725.   strext:$forum$:3:99:$downline$
  726.   nthstr2:¥r:$forum$:1:$forum$
  727.   strwhere:#num#:-$forum$-:$gone$
  728.   if:501:#num#<>0
  729.   gosub:1020
  730.   r:下さい◆|505:^jFORUM>|503:^jmore>|503:^j>
  731.   j:501
  732. 503:
  733.   nthstr:$temset$:8:$set$
  734.   if:501:$temset$==0
  735.   s:SET MENu OFF^m
  736.   r:^jmore>|504:^jFORUM>|504:^j>FORUM>|501:^j>
  737. 504:
  738.   gosub:1030
  739. 505:
  740.   s:SEND OFF^m
  741.   r:^jFORUM>
  742.   gosub:2000
  743.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  744. 510:
  745.   gosub:1600
  746. 520:
  747.   gosub:1100
  748.   if:521:$filename$==
  749.   gosub:1300
  750.   j:520
  751. 521:
  752.   gosub:1110
  753.   if:502:$readfile$==
  754.   gosub:2100
  755.   j:521
  756. 599:
  757.   fclose:#downref#
  758.   set:$filename$:DownList.lib
  759.   gosub:2310
  760. ***** Send Massage & Read Message & Upload *****
  761. 600:
  762.   if:900:#go#<<32
  763. 601:
  764.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  765.   if:700:$filename$==
  766.   nthstr:$temforum$:1:$filename$
  767.   nthstr:$room$:2:$filename$
  768.   if:605:$temforum$==$forum$
  769.   set:$forum$:$temforum$
  770.   gosub:1020
  771.   r:下さい◆|604:^jFORUM>|602:^jmore>|602:^j>
  772.   j:606
  773. 602:
  774.   nthstr:$temset$:8:$set$
  775.   if:606:$temset$==0
  776.   s:SET MENu OFF^m
  777.   r:^jmore>|603:^j>FORUM>|606:^j>
  778. 603:
  779.   gosub:1030
  780. 604:
  781.   s:SEND OFF^m
  782.   r:^jFORUM>
  783. 605:
  784.   strwhere:#num#:LIB:$room$
  785.   if:620:#num#==1
  786.   strwhere:#num#:[¥^0-9]:$room$
  787.   if:608:#num#<>0
  788.   set:#num#:$room$
  789.   if:610:#num#>>20
  790.   gosub:1300
  791.   j:601
  792. 606:
  793.   set:$us$:_?
  794.   gosub:2300
  795.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  796. 607:
  797.   if:601:$filename$==
  798.   nthstr:$temforum$:1:$filename$
  799.   if:606:$temforum$==$forum$
  800.   nextfile:$filename$
  801.   j:607
  802. 608:
  803.   set:$us$:_?
  804.   gosub:2300
  805.   j:601
  806. 610:
  807.   set:$readfile$:$filename$
  808.   strext:$string$:1:1:$room$
  809.   strext:$room$:2:2:$room$
  810.   if:611:$string$==4
  811.   set:$room$:1$room$
  812.   if:611:$string$==5
  813.   set:$room$:20
  814. 611:
  815.   gosub:2100
  816.   j:601
  817. 620:
  818.   strext:$uplib$:4:5:$room$
  819.   gosub:1610
  820.   j:601
  821. ***** Patio *****
  822. 700:
  823.   if:900:#go#<<64
  824.   fopen:#patioref#:SCRIPT:PATIO.aps
  825. 701:
  826.   fread:#patioref#:$line$
  827.   if:799:#err#<>0
  828.   if:799:$line$==/END^m
  829.   if:701:$line$<>/$id$^m
  830. 710:
  831.   gosub:1040
  832.   if:799:$line$==/END^m
  833.   if:730:$line$==/RMN^m
  834.   if:730:$line$==/RTN^m
  835.   gosub:1050
  836.   gosub:1140
  837.   if:711:$patioi$==$id$
  838.   r:^j:|712:^j>
  839.   s:$patiop$^m
  840. 711:
  841.   r:^j:|713:^j>
  842. 712:
  843.   s:2^m
  844.   r:^j:|710:^j>
  845.   s:^m
  846.   r:^j>
  847.   j:710
  848. 713:
  849.   line:#num#
  850.   sub:#num#:1
  851.   getline:$line$:#num#
  852.   strwhere:#num#: 1 +[0-9]+ (   0)   [01][0-9]/[0-3][0-9]   :$line$
  853.   if:714:#num#==0
  854.   if:720:$filename$==
  855. 714:
  856.   gosub:1070
  857.   gosub:1400
  858.   s:MREad^m
  859.   r:^jPATIO(N)>|720:^jPATIO(P)>
  860. 720:
  861.   gosub:1040
  862.   if:799:$line$==/END^m
  863.   if:740:$line$==/RMN^m
  864.   if:740:$line$==/RTN^m
  865.   gosub:1060
  866.   gosub:1140
  867.   if:721:$patioi$==$id$
  868.   r:^j:|722:^j>
  869.   s:$patiop$^m
  870. 721:
  871.   r:^j:|713:^j>
  872. 722:
  873.   s:2^m
  874.   r:^j:|720:^j>
  875.   s:^m
  876.   r:^j>
  877.   j:720
  878. 730:
  879.   strext:$string$:2:4:$line$
  880. 731:
  881.   gosub:1040
  882.   if:799:$line$==/END^m
  883.   if:730:$line$==/RTN^m
  884.   gosub:1050
  885.   gosub:1140
  886.   gosub:1150
  887.   if:732:$patioi$==$id$
  888.   r:^j:|733:^j>
  889.   s:$patiop$^m
  890. 732:
  891.   r:^j:|734:^j>
  892. 733:
  893.   s:2^m
  894.   r:^j:|731:^j>
  895.   s:^m
  896.   r:^j>
  897.   j:731
  898. 734:
  899.   set:#roomon#:0
  900.   line:#num#
  901.   sub:#num#:1
  902.   getline:$line$:#num#
  903.   strwhere:#num#: 1 +[0-9]+ (   0)   [01][0-9]/[0-3][0-9]   :$line$
  904.   if:737:$readfile$==
  905.   s:1^m
  906.   set:#roomon#:1
  907.   r:^jPATIO(
  908.   nthstr:$temset$:2:$set$
  909.   if:735:$temset$==0
  910.   s:SET PAUSE OFF^m
  911.   r:^jPATIO(
  912. 735:
  913.   nthstr:$mes$:3:$readfile$
  914.   s:#!$mes$^m
  915.   set:$us$:_
  916.   gosub:2330
  917.   gosub:1150
  918.   r:下さい◆|736:^jPATIO(N)>|736:^jPATIO(P)>
  919.   gosub:2340
  920. 736:
  921.   if:735:$readfile$<>
  922. 737:
  923.   if:738:#num#==0
  924.   if:741:$filename$==
  925. 738:
  926.   if:739:#roomon#==1
  927.   gosub:1070
  928. 739:
  929.   gosub:1400
  930.   s:$string$^m
  931.   r:^j>
  932.   s:RC ALL^m
  933.   r:^jPATIO(
  934.   j:741
  935. 740:
  936.   strext:$string$:2:4:$line$
  937. 741:
  938.   gosub:1040
  939.   if:799:$line$==/END^m
  940.   if:740:$line$==/RTN^m
  941.   gosub:1060
  942.   gosub:1140
  943.   gosub:1150
  944.   if:742:$patioi$==$id$
  945.   r:^j:|743:^j>
  946.   s:$patiop$^m
  947. 742:
  948.   r:^j:|734:^j>
  949. 743:
  950.   s:2^m
  951.   r:^j:|741:^j>
  952.   s:^m
  953.   r:^j>
  954.   j:741
  955. 799:
  956.   fclose:#patioref#
  957. ***** Logout *****
  958. 900:
  959.   date:$date$:/
  960.   strext:$string$:8:8:$date$
  961.   nthstr:$temset$:12:$set$
  962.   strwhere:#num#:$string$:$temset$
  963.   if:980:#num#==0
  964.   s:GO BILL^m
  965.   r:^j>
  966.   s:2^m
  967.   r:^j>
  968. 980:
  969.   fread:#setref#:$line$
  970.   if:989:#err#<>0
  971.   if:989:$line$==/END^m
  972.   strwhere:#num#:/:$line$
  973.   if:980:#num#<>1
  974.   strext:$id$:2:9:$line$
  975.   strwhere:#num#:$id$:$i$
  976.   if:980:#num#==0
  977.   add:#num#:8
  978.   div:#num#:9
  979.   nthstr2: :$pw$:#num#:$p$
  980.   set:$set$:
  981.   gosub:1002
  982.   if:980:$temset$<>TERMINAL
  983.   gosub:1000
  984.   if:980:$temset$<>TEXTMAIL
  985.   gosub:1000
  986.   if:980:$temset$<>BINARYMAIL
  987.   gosub:1000
  988.   if:980:$temset$<>DELETEMAIL
  989.   gosub:1000
  990.   if:980:$temset$<>SENDMAIL
  991.   gosub:1000
  992.   if:980:$temset$<>NEWMAIL
  993.   gosub:1000
  994.   set:$set$:$set$---
  995.   if:980:$temset$<>COMMENT
  996.   gosub:1000
  997.   if:980:$temset$<>BILL
  998.   s:LOG^m
  999.   nthstr:$temset$:2:$line$
  1000.   nthstr2:¥r:$temset$:1:$temset$
  1001.   set:$set$:$set$-$temset$
  1002.   nthstr:$temset$:12:$mainset$
  1003.   set:$set$:$set$-$temset$
  1004.   nthstr:$temset$:13:$mainset$
  1005.   set:$set$:$set$-$temset$
  1006.   set:#go#:0
  1007.   exist:981:SCRIPT:PATIO.aps
  1008.   j:95
  1009. 981:
  1010.   add:#go#:64
  1011.   j:95
  1012. 989:
  1013.   set:$set$:$mainset$
  1014.   line:#end#
  1015.   s:OFF^m
  1016.   clock:off
  1017.   add:#end#:6
  1018.   t:990:5:*
  1019.   s:OFF^m
  1020. 990:
  1021.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
  1022.   if:991:$filename$==
  1023.   set:$us$:_?
  1024.   gosub:2300
  1025.   j:990
  1026. 991:
  1027.   fclose:#setref#
  1028. 992:
  1029.   d:5
  1030.   append:
  1031.   if:996:#start#==0
  1032.   set:$filename$:NIFTY APS LOG
  1033.   save:#start#:#end#:$filename$
  1034.   nthstr:$temset$:13:$set$
  1035.   if:994:$temset$==0
  1036.   exec:Ccut:LOG:$filename$
  1037.   set:$filename$:_$filename$
  1038. 993:
  1039.   d:20
  1040.   exist:994:LOG:$filename$
  1041.   j:993
  1042. 994:
  1043.   set:#usnum#:1
  1044.   rename:LOG:$filename$:$filename$.$date$
  1045.   if:996:#err#==0
  1046. 995:
  1047.   add:#usnum#:1
  1048.   rename:LOG:$filename$:$filename$.$date$*#usnum#
  1049.   if:995:#err#<>0
  1050. 996:
  1051.   nthstr:$temset$:14:$set$
  1052.   if:999:$temset$==1
  1053.   close:
  1054. 999:
  1055.   exit:
  1056. ********************
  1057. *    Sub Routine   *
  1058. ********************
  1059. ***** Option *****
  1060. 1000:
  1061.   nthstr:$temset$:2:$line$
  1062.   if:1001:$temset$==ON^m
  1063.   set:$set$:$set$-0
  1064.   j:1002
  1065. 1001:
  1066.   set:$set$:$set$-1
  1067. 1002:
  1068.   fread:#setref#:$line$
  1069.   nthstr:$temset$:1:$line$
  1070.   ret:
  1071. 1010:
  1072.   s:SET MENu OFF^m
  1073.   r:^j>
  1074.   s:SET PAGe OFF^m
  1075.   r:^j>
  1076.   ret:
  1077. 1020:
  1078.   s:GO $forum$^m
  1079.   set:$gone$:$gone$$forum$-
  1080.   set:#roomon#:0
  1081.   set:#libon#:0
  1082.   ret:
  1083. 1030:
  1084.   s:SET PAGe OFF^m
  1085.   r:^jmore>|1031:^jFORUM>
  1086. 1031:
  1087.   s:SET PAUSE OFF^m
  1088.   r:^jmore>|1039:^jFORUM>
  1089. 1032:
  1090.   s:^m
  1091.   r:^jFORUM>|1032:^jmore>
  1092. 1039:
  1093.   ret:
  1094. 1040:
  1095.   fread:#patioref#:$line$
  1096.   if:1041:#err#==0
  1097.   set:$line$:/END^m
  1098.   j:1049
  1099. 1041:
  1100.   strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9] :$line$
  1101.   if:1049:#num#==1
  1102.   strwhere:#num#:/:$line$
  1103.   if:1040:#num#<>1
  1104.   strwhere:#num#:/[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]¥¥r:$line$
  1105.   if:1049:#num#<>1
  1106.   set:$line$:/END^m
  1107. 1049:
  1108.   ret:
  1109. 1050:
  1110.   s:GO PATIO^m
  1111.   nthstr2: :$patioi$:1:$line$
  1112.   nthstr2: :$patiop$:2:$line$
  1113.   r:^j>
  1114.   s:2^m
  1115.   r:^j:
  1116.   s:$patioi$^m
  1117.   ret:
  1118. 1060:
  1119.   s:MOVe^m
  1120.   nthstr2: :$patioi$:1:$line$
  1121.   nthstr2: :$patiop$:2:$line$
  1122.   r:^j:
  1123.   s:$patioi$^m
  1124.   ret:
  1125. 1070:
  1126.   s:1^m
  1127.   r:^jPATIO(
  1128.   nthstr:$temset$:2:$set$
  1129.   if:1079:$temset$==0
  1130.   s:SET PAUSE OFF^m
  1131.   r:^jPATIO(
  1132. 1079:
  1133.   ret:
  1134. ***** Prepare to Send or Read Message *****
  1135. 1100:
  1136.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1137. 1101:
  1138.   if:1109:$filename$==
  1139.   nthstr:$temforum$:1:$filename$
  1140.   if:1102:$temforum$==$forum$
  1141.   nextfile:$filename$
  1142.   j:1101
  1143. 1102:
  1144.   nthstr:$room$:2:$filename$
  1145.   strwhere:#num#:[¥^0-9]:$room$
  1146.   if:1103:#num#<>0
  1147.   set:#num#:$room$
  1148.   if:1109:#num#<=20
  1149.   nextfile:$filename$
  1150.   j:1101
  1151. 1103:
  1152.   set:$us$:_?
  1153.   gosub:2300
  1154.   nextfile:$filename$
  1155.   j:1101
  1156. 1109:
  1157.   ret:
  1158. 1110:
  1159.   firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1160.   set:$temroom$:
  1161.   gosub:1130
  1162.   set:$room$:$temroom$
  1163.   ret:
  1164. 1120:
  1165.   firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1166. 1121:
  1167.   gosub:1130
  1168.   if:1129:$readfile$==
  1169.   if:1129:$room$==$temroom$
  1170.   nextfile:$readfile$
  1171.   j:1121
  1172. 1129:
  1173.   ret:
  1174. 1130:
  1175.   if:1139:$readfile$==
  1176.   nthstr:$temforum$:1:$readfile$
  1177.   if:1131:$temforum$==$forum$
  1178.   nextfile:$readfile$
  1179.   j:1130
  1180. 1131:
  1181.   nthstr:$temroom$:2:$readfile$
  1182.   strext:$string$:1:1:$temroom$
  1183.   strext:$temroom$:2:2:$temroom$
  1184.   if:1139:$string$==4
  1185.   set:$temroom$:1$temroom$
  1186.   if:1139:$string$==5
  1187.   set:$temroom$:20
  1188. 1139:
  1189.   ret:
  1190. 1140:
  1191.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  1192. 1141:
  1193.   if:1149:$filename$==
  1194.   nthstr:$patio$:1:$filename$
  1195.   if:1149:$patioi$==$patio$
  1196.   nextfile:$filename$
  1197.   j:1141
  1198. 1149:
  1199.   ret:
  1200. 1150:
  1201.   firstfile:$readfile$:POST:¥^PT_[A-Z]+[0-9][0-9][0-9][0-9][0-9]-[49][19]-
  1202. 1151:
  1203.   if:1159:$readfile$==
  1204.   nthstr:$patio$:1:$readfile$
  1205.   strext:$patio$:4:11:$patio$
  1206.   if:1159:$patioi$==$patio$
  1207.   nextfile:$readfile$
  1208.   j:1151
  1209. 1159:
  1210.   ret:
  1211. ***** Send Text Mail *****
  1212. 1200:
  1213.   if:1210:#mailon#==1
  1214.   nthstr:$temset$:7:$set$
  1215.   if:1201:$temset$==0
  1216.   s:GO NEW
  1217. 1201:
  1218.   s:MAIL^m
  1219.   set:#mailon#:1
  1220.   r:^jMAIL>
  1221. 1210:
  1222.   s:COMpose^m
  1223.   strext:$mailto$:4:99:$mesline$
  1224.   r:行頭で/E)
  1225. 1211:
  1226.   s:$mesline$
  1227.   strwhere:#num#:,¥¥r:$mailto$
  1228.   if:1212:#num#==0
  1229.   nthstr2:¥r:$mailto$:1:$mailto$
  1230.   fread:#mesref#:$mesline$
  1231.   set:$mailto$:$mailto$$mesline$
  1232.   j:1211
  1233. 1212:
  1234.   gosub:1800
  1235.   r:^j題名 (漢字で20文字まで)|1213:終了)|1299:^jMAIL>
  1236.   s:無題 m(_ _)m^m
  1237.   r:^j:
  1238.   s:1^m
  1239.   r:^j:|1299:^jMAIL>
  1240. 1213:
  1241.   d:2
  1242.   set:$mailto$:$id$
  1243.   s:$id$^m
  1244.   r:^j:
  1245.   s:1^m
  1246.   r:^j:
  1247.   s:^m
  1248.   r:^jMAIL>
  1249. 1299:
  1250.   ret:
  1251. ***** Send Message in Forum *****
  1252. 1300:
  1253.   nthstr:$room$:2:$filename$
  1254.   if:1302:#roomon#==1
  1255.   nthstr:$temset$:9:$set$
  1256.   if:1301:$temset$==0
  1257.   s:MES^m
  1258.   r:^j>
  1259. 1301:
  1260.   s:MES $room$^m
  1261.   r:^jCCS(|1303:^jFORUM>|1303:^j>
  1262.   set:#roomon#:1
  1263.   j:1310
  1264. 1302:
  1265.   s:RX $room$^m
  1266.   r:せん◆|1310:^jCCS(
  1267. 1303:
  1268.   set:$us$:_?
  1269.   gosub:2300
  1270.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1271. 1304:
  1272.   if:1399:$filename$==
  1273.   nthstr:$temforum$:1:$filename$
  1274.   if:1305:$temforum$==$forum$
  1275.   nextfile:$filename$
  1276.   j:1304
  1277. 1305:
  1278.   nthstr:$temroom$:2:$filename$
  1279.   if:1303:$temroom$==$room$
  1280.   j:1399
  1281. 1310:
  1282.   gosub:1500
  1283.   strwhere:#num#:¥¥?:$us$
  1284.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1285. 1311:
  1286.   if:1320:$filename$==
  1287.   nthstr:$temforum$:1:$filename$
  1288.   if:1312:$temforum$==$forum$
  1289.   nextfile:$filename$
  1290.   j:1311
  1291. 1312:
  1292.   nthstr:$temroom$:2:$filename$
  1293.   if:1320:$temroom$<>$room$
  1294.   if:1310:#num#<>0
  1295.   r:^j題名 (漢字で20文字まで)|1310:^jCCS(
  1296.   s:無題 m(_ _)m^m
  1297.   r:^j:
  1298.   s:1^m
  1299.   r:^jCCS(
  1300.   j:1310
  1301. 1320:
  1302.   gosub:1120
  1303.   if:1399:#num#<>0
  1304.   r:^j題名 (漢字で20文字まで)|1399:^jCCS(
  1305.   s:無題 m(_ _)m^m
  1306.   r:^j:
  1307.   s:1^m
  1308.   r:^jCCS(
  1309.   if:1399:$readfile$==
  1310.   gosub:2110
  1311. 1399:
  1312.   ret:
  1313. ***** Send Message in Patio *****
  1314. 1400:
  1315.   if:1499:$filename$==
  1316. 1401:
  1317.   gosub:1500
  1318.   strwhere:#num#:¥¥?:$us$
  1319.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  1320. 1402:
  1321.   if:1404:$filename$==
  1322.   nthstr:$patio$:1:$filename$
  1323.   if:1403:$patioi$==$patio$
  1324.   nextfile:$filename$
  1325.   j:1402
  1326. 1403:
  1327.   if:1401:#num#<>0
  1328.   r:^j題名 (漢字で20文字まで)|1401:^jPATIO(
  1329.   s:無題 m(_ _)m^m
  1330.   r:^j:
  1331.   s:1^m
  1332.   r:^jPATIO(
  1333.   j:1401
  1334. 1404:
  1335.   if:1499:#num#<>0
  1336.   r:^j題名 (漢字で20文字まで)|1499:^jPATIO(
  1337.   s:無題 m(_ _)m^m
  1338.   r:^j:
  1339.   s:1^m
  1340.   r:^jPATIO(
  1341. 1499:
  1342.   ret:
  1343. ***** Comment or Message? *****
  1344. 1500:
  1345.   nthstr:$mes$:3:$filename$
  1346.   if:1502:$mes$==
  1347.   strwhere:#num#:700[0-9][0-9]:$mes$
  1348.   if:1502:#num#==1
  1349.   s:RE $mes$^m
  1350.   r:下さい◆|1501:◆|1503:行頭で/E)
  1351.   j:1510
  1352. 1501:
  1353.   nthstr:$temset$:11:$set$
  1354.   if:1510:$temset$==0
  1355. 1502:
  1356.   s:SAY^m
  1357.   r:^j:|1510:◆
  1358.   s:1^m
  1359.   r:行頭で/E)
  1360. 1503:
  1361.   fopen:#mesref#:POST:$filename$
  1362.   gosub:1800
  1363.   j:1599
  1364. 1510:
  1365.   set:$us$:_?
  1366.   gosub:2300
  1367. 1599:
  1368.   ret:
  1369. ***** Prepare to Upload *****
  1370. 1600:
  1371.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1372. 1601:
  1373.   if:1699:$filename$==
  1374.   nthstr:$temforum$:1:$filename$
  1375.   if:1602:$temforum$==$forum$
  1376.   nextfile:$filename$
  1377.   j:1601
  1378. 1602:
  1379.   nthstr:$uplib$:2:$filename$
  1380.   strext:$uplib$:4:5:$uplib$
  1381. 1610:
  1382.   fopen:#mesref#:POST:$filename$
  1383.   fread:#mesref#:$mesline$
  1384.   strwhere:#num#:#!FN:$mesline$
  1385.   if:1620:#num#<>1
  1386.   strlen:#length#:$mesline$
  1387.   sub:#length#:1
  1388.   strext:$upfname$:5:#length#:$mesline$
  1389.   exist:1611:$upfname$
  1390.   j:1620
  1391. 1611:
  1392.   fread:#mesref#:$mesline$
  1393.   strwhere:#num#:#!TT:$mesline$
  1394.   if:1620:#num#<>1
  1395.   strlen:#length#:$mesline$
  1396.   if:1620:#length#<=5
  1397.   strext:$dataname$:5:#length#:$mesline$
  1398.   fread:#mesref#:$mesline$
  1399.   strwhere:#num#:#!KY:$mesline$
  1400.   if:1620:#num#<>1
  1401.   strlen:#length#:$mesline$
  1402.   if:1620:#length#<=5
  1403.   strwhere:#num#:,:$mesline$
  1404.   if:1620:#num#==5
  1405.   if:1612:#libon#==1
  1406.   nthstr:$temset$:10:$set$
  1407.   if:1612:$temset$==0
  1408.   s:LIB^m
  1409.   r:^j>
  1410. 1612:
  1411.   s:LIB $uplib$^m
  1412.   set:$lib$:$uplib$
  1413.   strext:$mesline$:5:#length#:$mesline$
  1414.   r:^jLIB>
  1415.   gosub:1700
  1416.   j:1600
  1417. 1620:
  1418.   fclose:#mesref#
  1419.   set:$us$:_?
  1420.   gosub:2300
  1421. 1699:
  1422.   ret:
  1423. ***** Upload *****
  1424. 1700:
  1425.   s:UPLoad PROT:BPL TYPE:BIN^m
  1426.   set:#keynum#:1
  1427.   r:^j:|1714:^jLIB>
  1428.   s:$dataname$
  1429.   r:^j:
  1430.   s:1^m
  1431.   r:^j:
  1432. 1701:
  1433.   nthstr2:,:$key$:#keynum#:$mesline$
  1434.   nthstr2:¥r:$key$:1:$key$
  1435.   if:1702:$key$==
  1436.   s:$key$^m
  1437.   add:#keynum#:1
  1438.   r:^j:
  1439.   s:1^m
  1440.   r:^j:|1703:行頭で/E)
  1441.   j:1701
  1442. 1702:
  1443.   s:^m
  1444.   r:行頭で/E)
  1445. 1703:  
  1446.   gosub:1800
  1447.   r:^j:
  1448.   s:1^m
  1449.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1450.   r:^j:
  1451.   s:$upfname$^m
  1452.   r:開始−
  1453.   d:1
  1454.   ulbplus:$upfname$
  1455.   r:^jLIB>
  1456. 1710:
  1457.   if:1799:$filename$==
  1458.   nthstr:$temforum$:1:$filename$
  1459.   if:1711:$temforum$==$forum$
  1460.   nextfile:$filename$
  1461.   j:1710
  1462. 1711:
  1463.   nthstr:$uplib$:2:$filename$
  1464.   strext:$uplib$:4:5:$uplib$
  1465.   if:1712:$uplib$==$lib$
  1466.   nextfile:$filename$
  1467.   j:1710
  1468. 1712:
  1469.   fopen:#mesref#:POST:$filename$
  1470.   fread:#mesref#:$mesline$
  1471.   strwhere:#num#:#!FN:$mesline$
  1472.   if:1714:#num#<>1
  1473.   strlen:#length#:$mesline$
  1474.   sub:#length#:1
  1475.   strext:$upfname$:5:#length#:$mesline$
  1476.   exist:1713:$upfname$
  1477.   j:1714
  1478. 1713:
  1479.   fread:#mesref#:$mesline$
  1480.   strwhere:#num#:#!TT:$mesline$
  1481.   if:1714:#num#<>1
  1482.   strlen:#length#:$mesline$
  1483.   if:1714:#length#<=5
  1484.   strext:$dataname$:5:#length#:$mesline$
  1485.   fread:#mesref#:$mesline$
  1486.   strwhere:#num#:#!KY:$mesline$
  1487.   if:1714:#num#<>1
  1488.   strlen:#length#:$mesline$
  1489.   if:1714:#length#<=5
  1490.   strwhere:#num#:,:$mesline$
  1491.   if:1714:#num#==5
  1492.   strext:$mesline$:5:#length#:$mesline$
  1493.   j:1700
  1494. 1714:
  1495.   fclose:#mesref#
  1496.   set:$us$:_?
  1497.   gosub:2300
  1498. 1799:
  1499.   ret:
  1500. ***** Send Message *****
  1501. 1800:
  1502.   fread:#mesref#:$mesline$
  1503.   if:1801:#err#<>0
  1504.   if:1801:$mesline$==/POST^m
  1505.   s:$mesline$
  1506.   j:1800
  1507. 1801:
  1508.   s:/POST^m
  1509.   fclose:#mesref#
  1510.   set:$us$:_
  1511.   gosub:2300
  1512.   ret:
  1513. ***** Search in Library *****
  1514. 1900:
  1515.   s:LIB^m
  1516.   set:#libon#:1
  1517.   r:^j>
  1518.   if:1901:$sealine$==^m
  1519.   s:SEArch $sealine$
  1520.   j:1999
  1521. 1901:
  1522.   s:SEArch^m
  1523. 1999:
  1524.   r:^j>
  1525.   ret:
  1526. ***** Download *****
  1527. 2000:
  1528.   fread:#downref#:$downline$
  1529.   if:2099:#err#<>0
  1530.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1531.   if:2099:#num#<>1
  1532.   nthstr:$lib$:1:$downline$
  1533.   set:$temlib$:$lib$
  1534.   if:2002:#libon#==1
  1535.   nthstr:$temset$:10:$set$
  1536.   if:2002:$temset$==0
  1537.   s:LIB^m
  1538.   r:^j>
  1539. 2002:
  1540.   s:LIB $lib$^m
  1541.   r:せん◆|2004:^jLIB>
  1542. 2003:
  1543.   fread:#downref#:$downline$
  1544.   if:2099:#err#<>0
  1545.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1546.   if:2099:#num#<>1
  1547.   nthstr:$temlib$:1:$downline$
  1548.   if:2003:$temlib$==$lib$
  1549.   j:2002
  1550. 2004:
  1551.   nthstr:$file$:2:$downline$
  1552.   nthstr2:¥r:$file$:1:$file$
  1553.   nthstr2: :$file$:1:$file$
  1554.   s:DOWn PROT:BPL $file$^m
  1555.   r:^j:|2010:^jLIB>
  1556.   s:1^m
  1557.   r:^j:
  1558.   s:$forum$_$lib$($file$)^m
  1559.   r:開始−
  1560.   d:1
  1561.   dlBplus:
  1562.   r:^jLIB>
  1563. 2010:
  1564.   fread:#downref#:$downline$
  1565.   if:2011:#err#<>0
  1566.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1567.   if:2011:#num#<>1
  1568.   nthstr:$temlib$:1:$downline$
  1569.   if:2004:$temlib$==$lib$
  1570. 2011:
  1571.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1572. 2012:
  1573.   if:2015:$filename$==
  1574.   nthstr:$uplib$:2:$filename$
  1575.   strext:$uplib$:4:5:$uplib$
  1576.   if:2013:$uplib$==$lib$
  1577.   nextfile:$filename$
  1578.   j:2012
  1579. 2013:
  1580.   fopen:#mesref#:POST:$filename$
  1581.   fread:#mesref#:$mesline$
  1582.   strwhere:#num#:#!FN:$mesline$
  1583.   if:2016:#num#<>1
  1584.   strlen:#length#:$mesline$
  1585.   sub:#length#:1
  1586.   strext:$upfname$:5:#length#:$mesline$
  1587.   exist:2014:$upfname$
  1588.   j:2016
  1589. 2014:
  1590.   fread:#mesref#:$mesline$
  1591.   strwhere:#num#:#!TT:$mesline$
  1592.   if:2016:#num#<>1
  1593.   strlen:#length#:$mesline$
  1594.   if:2016:#length#<=5
  1595.   strext:$dataname$:5:#length#:$mesline$
  1596.   fread:#mesref#:$mesline$
  1597.   strwhere:#num#:#!KY:$mesline$
  1598.   if:2016:#num#<>1
  1599.   strlen:#length#:$mesline$
  1600.   if:2016:#length#<=5
  1601.   strwhere:#num#:,:$mesline$
  1602.   if:2016:#num#==5
  1603.   strext:$mesline$:5:#length#:$mesline$
  1604.   gosub:1600
  1605. 2015:
  1606.   if:2099:$temlib$==$lib$
  1607.   set:$lib$:$temlib$
  1608.   j:2002
  1609. 2016:
  1610.   fclose:#downref#
  1611.   set:$us$:_?
  1612.   gosub:2300
  1613.   j:2011
  1614. 2099:
  1615.   ret:
  1616. ***** Read Message in Forum *****
  1617. 2100:
  1618.   if:2101:#roomon#==0
  1619.   s:RX $room$^m
  1620.   r:せん◆|2110:^jCCS(
  1621.   j:2103
  1622. 2101:
  1623.   nthstr:$temset$:9:$set$
  1624.   if:2102:$temset$==0
  1625.   s:MES^m
  1626.   r:^j>
  1627. 2102:
  1628.   s:MES $room$^m
  1629.   r:^jCCS(|2103:^jFORUM>|2103:^j>
  1630.   set:#roomon#:1
  1631.   j:2110
  1632. 2103:
  1633.   set:$us$:_?
  1634.   gosub:2330
  1635.   gosub:1120
  1636.   if:2103:$readfile$<>
  1637.   j:2199
  1638. 2110:
  1639.   nthstr:$mes$:3:$readfile$
  1640.   s:#!$mes$^m
  1641.   set:$us$:_
  1642.   gosub:2330
  1643.   gosub:1120
  1644.   r:下さい◆|2111:^jCCS(N)>|2111:^jCCS(P)>
  1645.   gosub:2340
  1646. 2111:
  1647.   if:2110:$readfile$<>
  1648. 2199:
  1649.   ret:
  1650. ***** Read Title in Forum *****
  1651. 2200:
  1652.   nthstr2:/:$temroom$:#readnum#:$line$
  1653.   if:2299:$temroom$==
  1654. 2201:
  1655.   nthstr2:,:$room$:1:$temroom$
  1656.   if:2202:#roomon#==0
  1657.   s:RX $room$^m
  1658.   r:未読 :0−|2207:せん◆|2204:^jCCS(
  1659.   j:2207
  1660. 2202:
  1661.   nthstr:$temset$:9:$set$
  1662.   if:2203:$temset$==0
  1663.   s:MES^m
  1664.   r:^j>
  1665. 2203:
  1666.   s:MES $room$^m
  1667.   r:未読 :0−|2207:せん◆|2204:^jCCS(
  1668.   set:#roomon#:1
  1669.   j:2207
  1670. 2204:
  1671.   set:#roomon#:1
  1672.   if:2205:#readnum#==3
  1673.   s:RMN^m
  1674.   j:2206
  1675. 2205:
  1676.   s:RTN^m
  1677. 2206:
  1678.   r:^j>|2207:^jCCS(
  1679.   s:RC ALL^m
  1680.   j:2206
  1681. 2207:
  1682.   strwhere:#num#:,:$temroom$
  1683.   add:#num#:1
  1684.   strlen:#length#:$temroom$
  1685.   strext:$temroom$:#num#:#length#:$temroom$
  1686.   if:2201:#num#>>1
  1687. 2299:
  1688.   ret:
  1689. ***** Rename File *****
  1690. 2300:
  1691.   rename:POST:$filename$:$us$$filename$
  1692.   if:2309:#err#==0
  1693.   if:2301:#err#==-37
  1694.   set:$us$:_$us$
  1695.   j:2300
  1696. 2301:
  1697.   strlen:#usnum#:$us$
  1698.   strext:$us$:#usnum#:#usnum#:$us$
  1699.   set:#usnum#:0
  1700. 2302:
  1701.   rename:POST:$filename$:_$us$#usnum#$filename$
  1702.   if:2309:#err#==0
  1703.   add:#usnum#:1
  1704.   j:2302
  1705. 2309:
  1706.   ret:
  1707. 2310:
  1708.   set:$us$:_
  1709.   set:#usnum#:0
  1710. 2311:
  1711.   rename:SCRIPT:$filename$:$us$$filename$
  1712.   if:2319:#err#==0
  1713.   if:2312:#err#==-37
  1714.   set:$us$:_$us$
  1715.   j:2311
  1716. 2312:
  1717.   rename:SCRIPT:$filename$:_#usnum#$filename$
  1718.   if:2319:#err#==0
  1719.   add:#usnum#:1
  1720.   j:2312
  1721. 2319:
  1722.   ret:
  1723. 2320:
  1724.   set:$us$:_
  1725.   set:#usnum#:0
  1726. 2321:
  1727.   rename:POST:$filename$:$us$$line$
  1728.   if:2329:#err#==0
  1729.   if:2322:#err#==-37
  1730.   set:$us$:_$us$
  1731.   j:2321
  1732. 2322:
  1733.   rename:POST:$filename$:$us$#usnum#
  1734.   if:2329:#err#==0
  1735.   add:#usnum#:1
  1736.   j:2322
  1737. 2329:
  1738.   ret:
  1739. 2330:
  1740.   set:$string$:$readfile$
  1741. 2331:
  1742.   rename:POST:$string$:$us$$string$
  1743.   if:2339:#err#==0
  1744.   if:2332:#err#==-37
  1745.   set:$us$:_$us$
  1746.   j:2331
  1747. 2332:
  1748.   strlen:#usnum#:$us$
  1749.   strext:$us$:#usnum#:#usnum#:$us$
  1750.   set:#usnum#:0
  1751. 2333:
  1752.   rename:POST:$string$:_$us$#usnum#$string$
  1753.   if:2339:#err#==0
  1754.   add:#usnum#:1
  1755.   j:2333
  1756. 2339:
  1757.   ret:
  1758. 2340:
  1759.   set:$string$:$us$$string$
  1760.   set:$us$:_
  1761.   set:#usnum#:0
  1762. 2341:
  1763.   rename:POST:$string$:$us$?$string$
  1764.   if:2349:#err#==0
  1765.   if:2342:#err#==-37
  1766.   set:$us$:_$us$
  1767.   j:2341
  1768. 2342:
  1769.   rename:POST:$string$:_?#usnum#$string$
  1770.   if:2349:#err#==0
  1771.   add:#usnum#:1
  1772.   j:2342
  1773. 2349:
  1774.   ret:
  1775.